# Tabela de todas as turnês

metallica |> 
  dplyr::filter(Tour!="None") |> 
  dplyr::group_by(Tour) |> 
  dplyr::summarise(`Data de Início:`=min(Date),
                   `Data de Término`=max(Date)) |> 
  dplyr::arrange(`Data de Início:`) |> 
  gt::gt() |> 
  gt::tab_header(
    title=gt::md("**Lista de Turnês da banda Metallica**"),
    subtitle=gt::md("A primeira ocorreu no ano de 1983 para a divulgação de seu disco de estréia")
  ) |> 
  gt::tab_footnote(
    footnote = gt::md("Dados registrados até o ano de 2018; a turnê 'WorldWired' ainda está ocorrendo"),
    locations = gt::cells_column_labels(
      columns= Tour
    )
  ) |> 
  gt::tab_options(
    container.height = 500
  )

# Tabela das top 5 turnes por duração em dias

metallica |> 
  dplyr::filter(Tour!="None") |> 
  dplyr::group_by(Tour) |> 
  dplyr::summarise(`Duração em dias`=max(Date)-min(Date)) |> 
  dplyr::arrange(desc(`Duração em dias`)) |> 
  dplyr::top_n(5) |> 
  gt::gt() |> 
  gt::tab_header(
    title=gt::md("**Top 5 turnês mais duradouras da banda Metallica**"),
    subtitle=gt::md("A turnê 'WorldWired' tem tudo para bater ainda mais recordes, dito que ainda está ocorrendo no presente ano de 2021")
  ) 

# Tabela das top 5 turnês por quantidade de shows

metallica |> 
  dplyr::filter(Tour!="None") |> 
  dplyr::group_by(Tour) |> 
  dplyr::summarise(`Quantidade de Shows`= dplyr::n()) |> 
  dplyr::arrange(desc(`Quantidade de Shows`)) |> 
  dplyr::top_n(5) |> 
  gt::gt() |> 
  gt::tab_header(
    title=gt::md("**Top 5 turnês com mais shows da banda Metallica**"),
    subtitle=gt::md("A lendária 'Wherever We May Roam' foi a maior de todas, com 229 shows")
  ) 

# Tabela das 5 turnês com menor razão dias/show por turnê

mais_corrida <- metallica |> 
  dplyr::filter(Tour!="None") |> 
  dplyr::group_by(Tour) |> 
  dplyr::summarise(`Razão Dias/Show`= round(
    (max(Date)-min(Date))/dplyr::n(),digits=2
  )) |> 
  dplyr::arrange(`Razão Dias/Show`) |>
  dplyr::top_n(-5) |> 
  gt::gt() |> 
  gt::as_raw_html()

# Tabela das 5 turnês com maior razão dias/show por turnê

menos_corrida <- metallica |> 
  dplyr::filter(Tour!="None") |> 
  dplyr::group_by(Tour) |> 
  dplyr::summarise(`Razão Dias/Show`= round(
    (max(Date)-min(Date))/dplyr::n(),digits=2
  )) |> 
  dplyr::arrange(desc(`Razão Dias/Show`)) |>
  dplyr::top_n(5) |> 
  gt::gt() |> 
  gt::as_raw_html()

data.frame(menos_corrida, mais_corrida) |> 
  gt::gt() |> 
  gt::fmt_markdown(columns = dplyr::everything()) |> 
  gt::cols_label(menos_corrida = "Top 5 Turnês menos 'corridas'",
                 mais_corrida = "Top 5 Turnês mais 'corridas'") |> 
  gt::tab_header(
    title = gt::md("**Turnês mais e menos 'corridas' da banda Metallica**"),
    subtitle = gt::md("O ritmo mais pesado chegou a um show para cada 1,18 dias; o mais leve foi de um show para cada 9,78 dias")
  )

# Grafico da razao dias/show através dos anos

razao_por_anos <- metallica |>
  dplyr::mutate(Ano=Year) |>
  dplyr::group_by(Ano) |>
  dplyr::summarise(razao= round(
    (max(Date)-min(Date))/dplyr::n(),digits=2
  )) |>
  ggplot2::ggplot(ggplot2::aes(x=Ano,y=razao))+
  ggplot2::geom_line()+
  ggplot2::theme_minimal()+
  ggplot2::scale_x_continuous(breaks = seq(1980,2018,5))+
  ggplot2::labs(x="Ano",y="Razão",
                title="Razão Dias/Show através dos anos")

razao_por_anos |> plotly::ggplotly()

# Tabela das 5 turnês com menor media musicas/show

menor_sets <- metallica |> 
  dplyr::filter(Tour!="None") |> 
  dplyr::group_by(Tour) |> 
  dplyr::summarise(`Média Músicas/Show`= round(
    mean(Set_Length,na.rm=TRUE),digits=2
  )) |> 
  dplyr::arrange(`Média Músicas/Show`) |>
  dplyr::top_n(-5) |> 
  gt::gt() |> 
  gt::as_raw_html()

maior_sets <- metallica |> 
  dplyr::filter(Tour!="None") |> 
  dplyr::group_by(Tour) |> 
  dplyr::summarise(`Média Músicas/Show`= round(
    mean(Set_Length,na.rm=TRUE),digits=2
  )) |> 
  dplyr::arrange(desc(`Média Músicas/Show`)) |>
  dplyr::top_n(5) |> 
  gt::gt() |> 
  gt::as_raw_html()

data.frame(menor_sets, maior_sets) |> 
  gt::gt() |> 
  gt::fmt_markdown(columns = dplyr::everything()) |> 
  gt::cols_label(menor_sets = "Top 5 Turnês com menores sets",
                 maior_sets= "Top 5 Turnês com maiores sets") |> 
  gt::tab_header(
    title = gt::md("**Turnês com maior e menor quantidade média de músicas por set**"),
    subtitle = gt::md("A turnê com maiores sets possuiu média de 22.46 músicas; a menor, média de 10.17.")
  )

# Grafico da razao dias/show através dos anos

musicas_por_anos <- metallica |>
  dplyr::mutate(Ano=Year) |>
  dplyr::group_by(Ano) |>
  dplyr::summarise(`Média Músicas/Show`= round(
    mean(Set_Length,na.rm=TRUE),digits=2
  )) |>
  ggplot2::ggplot(ggplot2::aes(x=Ano,y=`Média Músicas/Show`))+
  ggplot2::geom_line()+
  ggplot2::theme_minimal()+
  ggplot2::scale_x_continuous(breaks = seq(1980,2018,5))+
  ggplot2::labs(x="Ano",y="Média Músicas/Show",
                title="Média de músicas por show através dos anos")

musicas_por_anos |> plotly::ggplotly()